
         org  $1000

         movea.l #data,a0
         move.b (a0),d0
         neg.b   d0
         move.b  d0,(a0)
         nop






         org  $10a0
data     ds.b 1